home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / System Utilities / MacGS 2.5.2ß3 Runtime ƒ / gs / (Utilities) / decrypt.ps < prev    next >
Encoding:
Text File  |  1992-05-26  |  294 b   |  14 lines  |  [TEXT/EDIT]
  1. % Decrypt an eexec-encoded file.
  2.  
  3. (t.in) (r) file /in exch def
  4. (t.out) (w) file /out exch def
  5. 256 string /buf exch def
  6. 55665        % eexec encryption seed
  7.  { in buf readhexstring /more exch def
  8.    dup type1decrypt out exch writestring
  9.    more not { exit } if
  10.  } loop
  11. in closefile
  12. out closefile
  13. quit
  14.